www.gusucode.com > (粗糙集数据分析工具箱) matlab源码程序 > matlab代做 修改 程序工具箱 (粗糙集数据分析工具箱) matla 中使用/rsda/supc.m

    function b=supc(c,x)
[pm,pn]=size(c);
%x=cat(2,x,0);
b=[];
d=[0];
for i=1:pm
    [q,w]=size(intersect(c(i,:),x));
    if w~=0
      b=cat(2,b,c(i,:));
   end
end
bb=unique(b);
b=setdiff(bb,0);